<%=stats%> - <%=rs("homes")%> - <%=rs("url")%> --- 最新流行歌曲在线试听免费听歌免费在线听歌 mp3免费下载久久音乐无线让您的心重新获得释放 ::...

<% Dim action action=trim(request.QueryString("action")) If action="best" Then stats="全部推荐专辑" ElseIf action="hot" Then stats="热门专辑排行" Else stats="全部专辑列表" End If %><%set rs=conn.execute("select * from [ylmv_home]")%> <%=stats%> - <%=rs("homes")%> - <%=rs("url")%> --- 最新流行歌曲在线试听免费听歌免费在线听歌 mp3免费下载久久音乐无线让您的心重新获得释放 ::... , wma, WMA, wma下载, wma试听, WMA下载, Mp3, MP3, mp3下载, MP3下载, mtv, MTV, flash, FLASH, 免费音乐下载, 免费音乐试听, 在线视听, 流行歌曲, 经典老歌, DJ舞曲, dj舞曲, 免费电影, 电影下载, 服务器租用"/> ,六万首音乐在线试听，百万网友喜爱的音乐网站"/>

您现在的位置：<%=rs("homes")%> >> 音乐频道 >> <%=stats%>

<%set rs=conn.execute("select * from [ylmv_home]")%>

<%=rs("homes")%> - <%=stats%>

<% Dim pagesize,curpage,Special_rs pagesize=30 '设置每页显示 3的倍数 If Request.QueryString("page")="" or not IsNumeric(Request.QueryString("page")) Then curpage = 1 Else curpage = cint(Request.QueryString("page")) End If If action="best" Then sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] where isgood=true ORDER BY SpecialID desc" ElseIf action="hot" Then sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] ORDER BY hits desc" Else sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] ORDER BY SpecialID desc" End If Set Special_rs = Server.CreateObject("ADODB.Recordset") Special_rs.open sql, conn, 1, 1 If Special_rs.eof Then Response.Write("还没有专辑呢, 谢谢你的支持!") End If Special_rs.pagesize = pagesize Special_rs.absolutepage = curpage For i=1 To pagesize %>

.html">

" width="80" height="80" border=0>

专辑名称：<%=Special_rs("name")%>
歌手姓名：<%=Special_rs("NClass")%>
所属语言：<%=Special_rs("Yuyan")%>
.html">进入试听

<% Special_rs.movenext If Special_rs.eof Then Exit For Next %>

<% If curpage = 1 Then Response.Write ("首页上一页") Else%> 首页上一页 <% End If If curpage = Special_rs.pagecount Then Response.Write (" 下一页尾页") Else%> 下一页尾页 <%End If%> 页次：<%=curpage%>/<%=Special_rs.pagecount%>页共<%=Special_rs.recordcount%>张专辑每页<%=pagesize%>张

<% Special_rs.close Set Special_rs=NOTHING %>